hash slices in perl